Software Vault: The Diamond Collection/The Diamond Collection (Software Vault)(Digital Impact).ISO/cdr35/scani02b.zip/SCANFILE.WCX

Wildcat! WCX | 1995-01-09 | 16KB | 849 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  15519 bytes  01/29/123  04:12:48pm
'! Code Segment Size  :9157 bytes
'! Data Segment Size  :6136 bytes
'! String Segment Size:6362 bytes
'! Compiled with WCC version 4.01

      Type Type26
        Filler0(1 To 6) As Byte
        s6 As String*70
        Filler76(1 To 14) As Byte
        s90 As String*70
        Filler160(1 To 14) As Byte
        s174 As String*70
      End Type

      Declare Function Func1257(s65534 As String) As Integer
      Declare Function Func1316 As Integer
      Declare Function Func1389 As Integer
      Declare Function Func1535 As Integer
      Declare Function Func1659 As Integer
      Declare Function Func1761 As Integer
      Declare Function Func1841 As Integer
      Declare Function Func1906(i65534 As Integer, i65532 As Integer, i65530 As Integer, s65528 As String) As Integer
      Declare Function Func2063(i65534 As Integer, s65532 As String, s65530 As String, s65528 As String) As Integer
      Declare Sub Sub2175
      Declare Sub Sub2444
      Declare Sub Sub2605
      Declare Sub Sub2651
      Declare Sub Sub2923
      Declare Sub Sub3053
      Declare Sub Sub3904
      Declare Sub Sub4118
      Declare Sub Sub4329
      Declare Sub Sub5238
      Declare Sub Sub5805
      Declare Sub Sub6638
      Declare Sub Sub7181
      Declare Sub Sub8115
      Declare Sub Sub8257

      Dim s4463 As String
      Dim sr4467 As SearchRec
      Dim i4516 As Integer
      Dim s4518 As String
      Dim s4522 As String
      Dim s4526(1 To 10) As String
      Dim o4566 As Boolean
      Dim fr4567 As FileRecord
      Dim s6051 As String
      Dim s6055 As String
      Dim i6059 As Integer
      Dim s6061 As String
      Dim s6065 As String
      Dim s6069 As String
      Dim i6073 As Integer
      Dim s6075 As String
      Dim s6079 As String
      Dim s6083 As String*1
      Dim b6084 As Byte
      Dim i6085 As Integer
      Dim i6087 As Integer
      Dim i6089 As Integer
      Dim i6091 As Integer
      Dim i6093 As Integer
      Dim i6095 As Integer
      Dim i6097 As Integer
      Dim i6099 As Integer
      Dim i6101 As Integer
      Dim i6103 As Integer
      Dim i6105 As Integer
      Dim s6107 As String
      Dim s6111 As String
      Dim s6115 As String
      Dim s6119 As String
      Dim s6123 As String
      Dim o6127 As Boolean
      Dim s6128 As String
      Dim i6132 As Integer
      Dim i6134 As Integer

      Dim s65524_ As String '! Temporary
      Dim i65528_ As Integer '! Temporary
      Dim i65530_ As Integer '! Temporary
      Dim s65532_ As String

      s6079 = "v.02b BETA"
      CarrierCheck(0)
      o4566 = 0
      Cls
      s6055 = User.Name
      s6055 = Trim(s6055)
      s6119 = MakeWild.SysopName
      s6119 = Trim(s6119)
      Sub8257
      s6075 = Trim(Str(MakeWild.NodeId))
      s4463 = s4463 + s6075
      Sub2923
      Sub8115
      Sub2444
      Func1841
      Func1906(i6073, (15), (0), ("Beginning Analysis of [" + s6111 + "]"))
      Sub3053
      If Not o4566 Then
        s65532_ = s6051
        If s65532_ = "ZIP" Then
          Sub6638
        Else
  307     If s65532_ = "ARJ" Then
            Sub5238
          Else
  336       If s65532_ = "EXE" Then
              Func1906(i6073, (15), (0), ("Testing [" + s6111 + "] with SCAN"))
              Locate i6089, i6093
              Print "@09@*";
              Locate i6101, i6103
              Print "@09@*";
              Sub7181
            Else
  482         If s65532_ = "GIF" Then
                Func1906(i6073, (15), (0), ("Testing [" + s6111 + "] with SCAN"))
                Locate i6089, i6093
                Print "@09@*";
                Locate i6101, i6103
                Print "@09@*";
                Sub7181
              Else
  628           If s65532_ = "BMP" Then
                  Func1906(i6073, (15), (0), ("Testing [" + s6111 + "] with SCAN"))
                  Locate i6089, i6093
                  Print "@09@*";
                  Locate i6101, i6103
                  Print "@09@*";
                  Sub7181
                Else
  774             If s65532_ = "TIF" Then
                    Func1906(i6073, (15), (0), ("Testing [" + s6111 + "] with SCAN"))
                    Locate i6089, i6093
                    Print "@09@*";
                    Locate i6101, i6103
                    Print "@09@*";
                    Sub7181
                  Else
  920
                    Func1906(i6073, (15), (0), ("Testing [" + s6111 + "] with SCAN"))
                    Locate i6089, i6093
                    Print "@09@*";
                    Locate i6101, i6103
                    Print "@09@*";
                    Sub7181
                  End If
                End If
              End If
            End If
          End If
        End If
      End If
 1043 If o4566 Then
        Locate i6073, 78
        Delay i6132
      Else
 1079   Locate i6073, 78
        Delay i6134
      End If
 1098 CarrierCheck(-1)
      Cls
      If o4566 And s6065 <> "NONE" And o6127 Then
        Cls
        CheckMailAtLogon
      End If
 1145

'! Called 6 times
      Function Func1257(s65534 As String) As Integer
        Open s6123 + "\SCANIT.LOG" For Append As 1
        Print #1, s65534
        Close 1
      End Function

'! Called 1 time
      Function Func1316 As Integer
        Dim i65530 As Integer
        Dim i65532 As Integer

        i65532 = CsrLin
        i65530 = Pos
        Locate i6091, i6099
        Color 14, 0
        Print s6111;
        Locate i65532, i65530
      End Function

'! Called 2 times
      Function Func1389 As Integer
        If Not o4566 Then
          Locate i6085, i6087
          Print "@0F@√@0E@";
        Else
 1439     Locate i6085, i6087
          Print "@8C@█@0E@"
          Locate i6089, i6093
          Print "@0C@X@0E@";
          Locate i6095, i6097
          Print "@0C@X@0E@";
          Locate i6101, i6103
          Print "@0C@X@0E@";
        End If
 1527
      End Function

'! Called 4 times
      Function Func1535 As Integer
        If Not o4566 Then
          Locate i6089, i6093
          Print "@0F@√@0E@";
        Else
 1585     Locate i6089, i6093
          Print "@8C@█@0E@";
          Locate i6095, i6097
          Print "@0C@X@0E@";
          Locate i6101, i6103
          Print "@0C@X@0E@";
        End If
 1651
      End Function

'! Called 6 times
      Function Func1659 As Integer
        If Not o4566 Then
          Locate i6095, i6097
          Print "@0F@√@0E@";
        Else
 1709     Locate i6095, i6097
          Print "@8C@█@0E@";
          Locate i6101, i6103
          Print "@0C@X@0E@";
        End If
 1753
      End Function

'! Called 3 times
      Function Func1761 As Integer
        If Not o4566 Then
          Locate i6101, i6103
          Print "@0F@√@0E@";
        Else
 1811     Locate i6101, i6103
          Print "@8C@█@0E@";
        End If
 1833
      End Function

'! Called 14 times
      Function Func1841 As Integer
        Dim i65530 As Integer
        Dim i65532 As Integer

        i65532 = CsrLin
        i65530 = Pos
        Locate i6073, 2
        Print Space(76);
        Locate i65532, i65530
      End Function

'! Called 21 times
      Function Func1906(i65534 As Integer, i65532 As Integer, i65530 As Integer, s65528 As String) As Integer
        Dim i65520 As Integer
        Dim i65522 As Integer
        Dim i65524 As Integer

        If Len(s65528) > 76 Then
          s65528 = Left(s65528, 76)
        End If
 1951   i65522 = CsrLin
        i65520 = Pos
        i65524 = 40 - Len(s65528) / 2
        Color i65532, i65530
        Locate i65534, i65524
        Print Trim(s65528);
        Locate i65522, i65520
      End Function

'! Called 4 times
      Function Func2063(i65534 As Integer, s65532 As String, s65530 As String, s65528 As String) As Integer
        Dim mh65206 As MessageHeader

        GetConfInfo(Conference, i65534)
        Join i65534
        mh65206.From = s65532
        mh65206.To = s65530
        mh65206.Subject = s65528
        AddMessage(mh65206, s6115, "", i65534)
      End Function

'! Called 5 times
      Sub Sub2175
        Dim l65530 As Long
        Dim i65534 As Integer

        Shell s4463 + "\SBAT.BAT", ""
        If Exists(s4463 + "\SCANFILE.BAD") Then
          o4566 = -1
          If GetFileInfo(fr4567, s6111) Then
 2268       For i6105 = 1 To 3 Step 1
              Beep
            Next
 2344       fr4567.Flags = fr4567.Flags Or 64
            UpdateFile(fr4567)
            If Exists(s4463 + "\SCANFILE.BAD") Then
              Del s4463 + "\SCANFILE.BAD"
            End If
 2407       If Exists(s4463 + "\SBAT.BAT") Then
              Del s4463 + "\SBAT.BAT"
            End If
          End If
        End If
 2441
      End Sub

'! Called 5 times
      Sub Sub2444
        If Exists(s4463 + "\SBAT.BAT") Then
          Del s4463 + "\SBAT.BAT"
        End If
 2487   i4516 = FindFirst(s4463 + "\STEMP\*.*", 0, sr4467)
 2510   Do While i4516 = 0
          Del s4463 + "\stemp\" + sr4467.Name
          i4516 = FindNext(sr4467)
        Loop
 2567   RmDir s4463 + "\STEMP"
        Catch 11
        GoTo 2602
 2602
      End Sub

'! Called 2 times
      Sub Sub2605
        If Exists(s4463 + "\SBAT.BAT") Then
          Del s4463 + "\SBAT.BAT"
        End If
 2648
      End Sub

'! Called 6 times
      Sub Sub2651
        Dim s65532 As String '! Temporary

        If s6065 = "SYSOP" Then
          s6069 = MakeWild.SysopName
          Func2063(i6059, ("SCANIT!"), s6069, s6111)
        End If
 2728   If s6065 = "BOTH" Then
          s6069 = MakeWild.SysopName
          Func2063(i6059, ("SCANIT!"), s6069, s6111)
          s6069 = s6055
          Func2063(i6059, ("SCANIT!"), s6069, s6111)
        End If
 2841   If s6065 = "CALLER" Then
          s6069 = s6055
          Func2063(i6059, ("SCANIT!"), s6069, s6111)
        End If
 2903   If s6065 = "NONE" Then
        End If
 2920
      End Sub

'! Called 1 time
      Sub Sub2923
        Dim i65534 As Integer

        s6107 = Trim(UCase(ParamStr(1)))
        i65534 = Len(s6107)
        Do
 2959     i65534 = i65534 - 1
        Loop Until i65534 = 0 Or Mid(s6107, i65534, 1) = "\"
        s6111 = Mid(s6107, i65534 + 1, Len(s6107))
        s6051 = Right(s6107, 3)
      End Sub

'! Called 1 time
      Sub Sub3053
        Dim i65526 As Integer '! Temporary
        Dim i65528 As Integer '! Temporary
        Dim l65530 As Long
        Dim i65534 As Integer

        If Right(s6111, 4) = s4526(1) Or Right(s6111, 4) = s4526(2) Or Right(s6111, 4) = s4526(3) Or Right(s6111, 4) = s4526(4) Or Right(s6111, 4) = s4526(5) Or Right(s6111, 4) = s4526(6) Or Right(s6111, 4) = s4526(7) Or Right(s6111, 4) = s4526(8) Or Right(s6111, 4) = s4526(9) Or Right(s6111, 4) = s4526(10) Then
          o4566 = -1
          Func1389
          If GetFileInfo(fr4567, s6111) Then
 3548       For i6105 = 1 To 3 Step 1
              Beep
            Next
 3624       fr4567.Flags = fr4567.Flags Or 64
            UpdateFile(fr4567)
            s6115 = "Unacceptable File Type (" + Right(s6111, 4) + ")! Please use " + s4522 + " for all uploads!"
            Func1841
            Func1906(i6073, (12), (8), s6115)
            ActivityLog "(SCANIT!) [" + s6111 + "] - File Type Unacceptable"
            Func1257(("Upload by " + User.Name + " [" + s6111 + "] - File Type Unacceptable"))
            Sub2651
          End If
 3830   Else
 3836     Func1841
          s6115 = "File acceptable. Resuming further testing..."
          Func1906(i6073, (14), (0), s6115)
          Func1389
        End If
 3901
      End Sub

'! Called 1 time
      Sub Sub3904
        Dim s65528 As String '! Temporary
        Dim i65532 As Integer '! Temporary
        Dim i65534 As Integer '! Temporary

        Func1841
        Func1906(i6073, (11), (0), ("Performing Final SysOp Maintenance Functions"))
        Shell "PKZIP " + s6107 + " -z <" + Trim(s4518), ""
        Func1761
        If Not o4566 Then
          Func1841
          Func1906(i6073, (10), (0), ("Analysis results for [" + s6111 + "] - PASS! Thanks for the upload!"))
        End If
 4115
      End Sub

'! Called 1 time
      Sub Sub4118
        Dim s65528 As String '! Temporary
        Dim i65532 As Integer '! Temporary
        Dim i65534 As Integer '! Temporary

        Func1841
        Func1906(i6073, (11), (0), ("Performing Final SysOp Maintenance Functions"))
        Shell "Arj c " + s6107 + " -z" + s4518, ""
        Func1761
        If Not o4566 Then
          Func1841
          Func1906(i6073, (10), (0), ("Analysis results for [" + s6111 + "] - PASS! Thanks for the upload!"))
        End If
 4326
      End Sub

'! Called 1 time
      Sub Sub4329
        Dim s65528 As String '! Temporary
        Dim i65532 As Integer '! Temporary
        Dim i65534 As Integer '! Temporary

        Func1841
        Func1906(i6073, (15), (0), ("Performing Virus Pattern Analysis"))
        Open s4463 + "\SBAT.BAT" For Output As 1
        Print #1, "@ECHO OFF"
        Print #1, "MD STEMP"
        Print #1, "CD STEMP"
        Print #1, "arj e " + s6107
        Print #1, "SCAN *.* /NOMEM"
        Print #1, "IF ErrorLevel 15 goto McAfee"
        Print #1, "IF ErrorLevel 14 goto McAfee"
        Print #1, "IF ErrorLevel 13 goto VIRUS"
        Print #1, "IF ErrorLevel 12 goto McAfee"
        Print #1, "IF ErrorLevel 11 goto McAfee"
        Print #1, "IF ErrorLevel 10 goto MemVir"
        Print #1, "IF ErrorLevel  9 goto Oops"
        Print #1, "IF ErrorLevel  8 goto McAfee"
        Print #1, "IF ErrorLevel  7 goto McAfee"
        Print #1, "IF ErrorLevel  6 goto McAfee"
        Print #1, "IF ErrorLevel  5 goto NoMem"
        Print #1, "IF ErrorLevel  4 goto McAfee"
        Print #1, "IF ErrorLevel  3 goto DiskErr"
        Print #1, "IF ErrorLevel  2 goto McAfee"
        Print #1, "IF ErrorLevel  1 goto DiskErr"
        Print #1, "IF ErrorLevel  0 goto OK"
        Print #1, "goto Unknown"
        Print #1, ":OK"
        Print #1, "goto end"
        Print #1, ":UNKNOWN"
        Print #1, "echo       * An UNKNOWN ERROR occurred while processing [" + s6111 + "]"
        Print #1, "echo *UNKNOWN ERROR! Manually Scan, Please! >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":DISKERR"
        Print #1, "echo       * There was an ERROR accessing your disk! >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":NOMEM"
        Print #1, "There was not enough memory to scan [" + s6111 + "] >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":OOPS"
        Print #1, "echo       * Internal Program Error, Cause Unknown! >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":MEMVIR"
        Print #1, "echo       * Virus Found In Memory! You need to scan/clean your machine! >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":VIRUS"
        Print #1, "echo       * Scan Detected a VIRUS in [" + s6111 + "] >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":MCAFEE"
        Print #1, "echo       * McAfee SCAN has ERROR in VIRUSCAN! >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":END"
        Close 1
        Sub2175
        If o4566 Then
          Sub2444
          s6115 = "[" + s6111 + "] Failed VIRUS SCAN!"
          Func1906(i6073, (12), (0), s6115)
          Func1257(("Upload by " + s6055 + " " + s6115))
          ActivityLog "! (SCANIT) " + s6115
          Sub2651
          Func1659
        End If
 5203   If Not o4566 Then
          Sub2444
          Func1659
          Sub4118
        End If
 5235
      End Sub

'! Called 1 time
      Sub Sub5238
        Dim s65528 As String '! Temporary
        Dim i65532 As Integer '! Temporary
        Dim i65534 As Integer '! Temporary

        Func1841
        Func1906(i6073, (14), (0), ("Performing Archive Integrity Analysis"))
        Open s4463 + "\SBAT.BAT" For Output As 1
        Print #1, "@ECHO OFF"
        Print #1, "arj t " + s6107 + " -jt"
        Print #1, "IF ErrorLevel 8 goto bad"
        Print #1, "IF ErrorLevel 7 goto bad"
        Print #1, "IF ErrorLevel 6 goto bad"
        Print #1, "IF ErrorLevel 5 goto bad"
        Print #1, "IF ErrorLevel 4 goto bad"
        Print #1, "IF ErrorLevel 3 goto bad"
        Print #1, "IF ErrorLevel 2 goto bad"
        Print #1, "IF ErrorLevel 1 goto bad"
        Print #1, "IF ErrorLevel 0 goto end"
        Print #1, "goto UNKNOWN"
        Print #1, ":BAD"
        Print #1, "echo * Error in ARJ File! " + s6107 + " >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":UNKNOWN"
        Print #1, "echo * Error in ARJ File! " + s6107 + " >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":END"
        Close 1
        Sub2175
        If o4566 Then
          s6115 = "[" + s6111 + "] Failed File Integrity Check!"
          Func1841
          Func1906(i6073, (12), (0), s6115)
          Func1257(("Upload by " + s6055 + " " + s6115))
          ActivityLog "! (SCANIT) " + s6115
          Sub2651
          Func1535
        End If
 5762   If Not o4566 Then
          Del s4463 + "\SBAT.BAT"
          Func1535
          Sub4329
        End If
 5802
      End Sub

'! Called 1 time
      Sub Sub5805
        Dim i65532 As Integer '! Temporary
        Dim i65534 As Integer '! Temporary

        Open s4463 + "\SBAT.BAT" For Output As 1
        Print #1, "@ECHO OFF"
        Print #1, "MD STEMP"
        Print #1, "CD STEMP"
        Print #1, "pkunzip -o " + s6107
        Print #1, "SCAN *.* /NOMEM"
        Print #1, "IF ErrorLevel 15 goto McAfee"
        Print #1, "IF ErrorLevel 14 goto McAfee"
        Print #1, "IF ErrorLevel 13 goto VIRUS"
        Print #1, "IF ErrorLevel 12 goto McAfee"
        Print #1, "IF ErrorLevel 11 goto McAfee"
        Print #1, "IF ErrorLevel 10 goto MemVir"
        Print #1, "IF ErrorLevel  9 goto Oops"
        Print #1, "IF ErrorLevel  8 goto McAfee"
        Print #1, "IF ErrorLevel  7 goto McAfee"
        Print #1, "IF ErrorLevel  6 goto McAfee"
        Print #1, "IF ErrorLevel  5 goto NoMem"
        Print #1, "IF ErrorLevel  4 goto McAfee"
        Print #1, "IF ErrorLevel  3 goto DiskErr"
        Print #1, "IF ErrorLevel  2 goto McAfee"
        Print #1, "IF ErrorLevel  1 goto DiskErr"
        Print #1, "IF ErrorLevel  0 goto OK"
        Print #1, "goto Unknown"
        Print #1, ":OK"
        Print #1, "goto end"
        Print #1, ":UNKNOWN"
        Print #1, "echo *UNKNOWN ERROR! Manually Scan, Please! >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":DISKERR"
        Print #1, "echo       * There was an ERROR accessing your disk! >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":NOMEM"
        Print #1, "There was not enough memory to scan [" + s6111 + "] >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":OOPS"
        Print #1, "echo       * Internal Program Error, Cause Unknown! >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":MEMVIR"
        Print #1, "echo       * Virus Found In Memory! You need to scan/clean your machine! >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":VIRUS"
        Print #1, "echo       * Scan Detected a VIRUS in [" + s6111 + "] >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":MCAFEE"
        Print #1, "echo       * McAfee SCAN has ERROR in VIRUSCAN! >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":END"
        Close 1
        Sub2175
        If o4566 Then
          Sub2444
          s6115 = "[" + s6111 + "] Failed VIRUS SCAN!"
          Func1841
          Func1906(i6073, (12), (0), s6115)
          Func1257(("Upload by " + s6055 + " " + s6115))
          ActivityLog "! (SCANIT) " + s6115
          Sub2651
          Func1659
          Func1761
        End If
 6603   If Not o4566 Then
          Sub2444
          Func1659
          Sub3904
        End If
 6635
      End Sub

'! Called 1 time
      Sub Sub6638
        Dim i65532 As Integer '! Temporary
        Dim i65534 As Integer '! Temporary

        Open s4463 + "\SBAT.BAT" For Output As 1
        Print #1, "@ECHO OFF"
        Print #1, "pkunzip -t " + s6107
        Print #1, "IF ErrorLevel 255 goto bad"
        Print #1, "IF ErrorLevel  51 goto bad"
        Print #1, "IF ErrorLevel  11 goto bad"
        Print #1, "IF ErrorLevel  10 goto bad"
        Print #1, "IF ErrorLevel   9 goto bad"
        Print #1, "IF ErrorLevel   8 goto bad"
        Print #1, "IF ErrorLevel   7 goto bad"
        Print #1, "IF ErrorLevel   6 goto bad"
        Print #1, "IF ErrorLevel   5 goto bad"
        Print #1, "IF ErrorLevel   4 goto bad"
        Print #1, "IF ErrorLevel   3 goto bad"
        Print #1, "IF ErrorLevel   2 goto bad"
        Print #1, "IF ErrorLevel   1 goto bad"
        Print #1, "IF ErrorLevel   0 goto end"
        Print #1, "goto UnKnown"
        Print #1, ":BAD"
        Print #1, "echo * Error in ZIP File! " + s6107 + " >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":UNKNOWN"
        Print #1, "echo * Error in ZIP File! " + s6107 + " >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":END"
        Close 1
        Sub2175
        If o4566 Then
          s6115 = "[" + s6111 + "] Failed File Integrity Check!"
          Func1841
          Func1906(i6073, (12), (0), s6115)
          Func1257(("Upload by " + s6055 + " " + s6115))
          ActivityLog "! (SCANIT) " + s6115
          Sub2651
          Func1535
        End If
 7138   If Not o4566 Then
          Del s4463 + "\SBAT.BAT"
          Func1535
          Sub5805
        End If
 7178
      End Sub

'! Called 5 times
      Sub Sub7181
        Dim s65528 As String '! Temporary
        Dim i65532 As Integer '! Temporary
        Dim i65534 As Integer '! Temporary

        Open s4463 + "\SBAT.BAT" For Output As 1
        Print #1, "@ECHO OFF"
        Print #1, "SCAN " + s6107 + " /NOMEM"
        Print #1, "IF ErrorLevel 15 goto McAfee"
        Print #1, "IF ErrorLevel 14 goto McAfee"
        Print #1, "IF ErrorLevel 13 goto VIRUS"
        Print #1, "IF ErrorLevel 12 goto McAfee"
        Print #1, "IF ErrorLevel 11 goto McAfee"
        Print #1, "IF ErrorLevel 10 goto MemVir"
        Print #1, "IF ErrorLevel  9 goto Oops"
        Print #1, "IF ErrorLevel  8 goto McAfee"
        Print #1, "IF ErrorLevel  7 goto McAfee"
        Print #1, "IF ErrorLevel  6 goto McAfee"
        Print #1, "IF ErrorLevel  5 goto NoMem"
        Print #1, "IF ErrorLevel  4 goto McAfee"
        Print #1, "IF ErrorLevel  3 goto DiskErr"
        Print #1, "IF ErrorLevel  2 goto McAfee"
        Print #1, "IF ErrorLevel  1 goto DiskErr"
        Print #1, "IF ErrorLevel  0 goto OK"
        Print #1, "goto Unknown"
        Print #1, ":OK"
        Print #1, "goto end"
        Print #1, ":UNKNOWN"
        Print #1, "echo       * An UNKNOWN ERROR occurred while processing [" + s6111 + "]"
        Print #1, "echo *UNKNOWN ERROR! Manually Scan, Please! >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":DISKERR"
        Print #1, "echo       * There was an ERROR accessing your disk! >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":NOMEM"
        Print #1, "There was not enough memory to scan [" + s6111 + "] >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":OOPS"
        Print #1, "echo       * Internal Program Error, Cause Unknown! >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":MEMVIR"
        Print #1, "echo       * Virus Found In Memory! You need to scan/clean your machine! >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":VIRUS"
        Print #1, "echo       * Scan Detected a VIRUS in [" + s6111 + "] >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":MCAFEE"
        Print #1, "echo       * McAfee SCAN has ERROR in VIRUSCAN! >>" + s4463 + "\SCANFILE.BAD"
        Print #1, "goto end"
        Print #1, ":END"
        Close 1
        Sub2175
        If o4566 Then
          Sub2605
          s6115 = "[" + s6111 + "] Failed VIRUS SCAN!"
          Func1841
          Func1906(i6073, (12), (0), s6115)
          Func1257(("Upload by " + s6055 + " " + s6115))
          ActivityLog "! (SCANIT) " + s6115
          Sub2651
          Func1659
        End If
 7972   If Not o4566 Then
          Sub2605
          Func1659
          If Exists(s4463 + "\SBAT.BAT") Then
            Del s4463 + "\SBAT.BAT"
          End If
 8032     Func1841
          Func1906(i6073, (10), (0), ("Analysis results for [" + s6111 + "] - PASS! Thanks for the upload!"))
        End If
 8112
      End Sub

'! Called 1 time
      Sub Sub8115
        Dim s65526 As String '! Temporary
        Dim i65530 As Integer '! Temporary
        Dim i65532 As Integer '! Temporary
        Dim i65534 As Integer '! Temporary

        If Not DisplayFile(s6061) Then
          Print "No display File named [" + s6061 + "] Exists! Please notify SysOp (Thanks!)"
          Delay 3
        Else
 8175     Func1316
          Func1906((21), (14), (0), ("SCANIT! Copyright (c) 1994/1995 Blake Software"))
        End If
 8254
      End Sub

'! Called 1 time
      Sub Sub8257
        Dim l65528 As Long
        Dim i65532 As Integer
        Dim i65534 As Integer

        Open "SCANIT.CFG" For Input As 1
        Input #1, s4463
        Input #1, s6123
        Input #1, s4526(1)
        Input #1, s4526(2)
        Input #1, s4526(3)
        Input #1, s4526(4)
        Input #1, s4526(5)
        Input #1, s4526(6)
        Input #1, s4526(7)
        Input #1, s4526(8)
        Input #1, s4526(9)
        Input #1, s4526(10)
        Input #1, s4518
        Input #1, s4522
        Input #1, s6083
        Input #1, i6059
        Input #1, s6065
        Input #1, s6128
        Input #1, s6061
        Input #1, i6073
        Input #1, i6091
        Input #1, i6099
        Input #1, i6085
        Input #1, i6087
        Input #1, i6089
        Input #1, i6093
        Input #1, i6095
        Input #1, i6097
        Input #1, i6101
        Input #1, i6103
        Input #1, i6132
        Input #1, i6134
        Close 1
        s4463 = UCase(s4463)
        s6123 = UCase(s6123)
 8834   For i65534 = 1 To 10 Step 1
          s4526(i65534) = UCase(s4526(i65534))
        Next
 8976   s4518 = UCase(s4518)
        s4522 = UCase(s4522)
        s6083 = UCase(s6083)
        s6065 = UCase(s6065)
        s6128 = UCase(s6128)
        s6061 = UCase(s6061)
        If s6083 = "Y" Then
          b6084 = -1
        End If
 9073   If i6132 < 3 Then
          i6132 = 3
        End If
 9095   If i6134 < 3 Then
          i6134 = 3
        End If
 9117   If s6128 = "Y" Then
          o6127 = -1
        Else
 9148     o6127 = 0
        End If
 9154
      End Sub